<%

Function FazData(Data)

	If Not IsDate(Data) Then FazData = "Null" : Exit Function
	
	If sBD = "" or sBD = "Access" Then
    
    	FazData = "#" & Month(Data) & "/" & Day(Data) & "/" & Year(Data) & "#"
    	
    Elseif sBD = "SQL Server" Then
    
    	FazData = "'" & Month(Data) & "/" & Day(Data) & "/" & Year(Data) & "'"

    End If
    
End Function

Function FazData2(nDia, nMes, nAno)

	If Not IsDate(nDia & "/" & nMes & "/" & nAno) Then FazData2 = "Null" : Exit Function
    
    If sBD = "" or sBD = "Access" Then
    
    	FazData2 = "#" & nMes & "/" & nDia & "/" & nAno & "#"
    	
    Elseif sBD = "SQL Server" Then
    
    	FazData2 = "'" & nMes & "/" & nDia & "/" & nAno & "'"

    End If
    
End Function

%>